10 OPEN1,8,15,"I":OPEN8,8,8,"#"
20 SE=1:GOTO120
30 :
50 PRINT#1,"U1:"8;0;18;SE:GET#8,T$:GET#8,SE$
60 FORI=2TO255STEP29:PRINT#1,"B-P"8,I:I=I+3:GET#8,C$:IFC$=""THENNEXTI
70 GET#8,C$:GET#8,C$:B$="":FORJ=1TO16:GET#8,A$:IFA$<>CHR$(160)THENB$=B$+A$:NEXT
80 IFB$<>""THENPRINTCHR$(34)B$CHR$(34):NEXTI
100 SE=1:IFSE$<>""THENSE=ASC(SE$)
110 IFT$=""THEN200
120 REM  PRINT"SEKTOR:"SE
130 GOTO30
200 CLOSE8:INPUT#1,A:CLOSE1:IFA<>0THENPRINT"ERROR"